################################################################################
#K-means聚类算法
################################################################################


#查看数据集前六个观测
head(iris)

#第一步：加载R包
library(stats)#该包属于默认包，会自动加载

#第二步：构建K-means聚类模型
model.Kmeans <-kmeans(x =subset(iris, select =-Species), centers=3)

#第三步：生成混淆矩阵
table(model.Kmeans$cluster, iris$Species)